data(ny_noaa)
noaa_tidy =
ny_noaa %>%
separate(date, into = c("year", "month", "day"), sep = "-") %>%
mutate(.data = ., prcp = as.numeric(prcp)/10, tmax = as.numeric(tmax)/10, tmin = as.numeric(tmin)/10)
Column
Chart A
noaa_tidy %>%
filter(tmax != "", tmin != "", year == 2006 | year == 2007 |year == 2008 | year == 2009 | year == 2010) %>%
plot_ly(x = ~tmax, y = ~tmin, type = "scatter", mode = "markers",
alpha = 0.5,
color = ~year)
Column
Chart B
noaa_tidy %>%
filter(prcp != "", year == 2010) %>%
plot_ly(x = ~month, y = ~prcp, color = ~month, type = "bar")
## Warning in RColorBrewer::brewer.pal(N, "Set2"): n too large, allowed maximum for palette Set2 is 8
## Returning the palette you asked for with that many colors
## Warning in RColorBrewer::brewer.pal(N, "Set2"): n too large, allowed maximum for palette Set2 is 8
## Returning the palette you asked for with that many colors
Chart C
noaa_tidy %>%
filter(tmin != "",year == 2002 | year == 2003 | year == 2004 | year == 2005 |year == 2006 | year == 2007 |year == 2008 | year == 2009 | year == 2010) %>%
plot_ly(y = ~tmin, color = ~year, type = "box", colors = "Set2")